home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / xtclock2.zip / SEEPORTS.BAS < prev    next >
BASIC Source File  |  1991-07-30  |  318b  |  11 lines
  1. 1 REM SEEPORTS can be used to view the out put from any I/O ports.
  2. 2 REM Simply substitute the starting port address in line forty and
  3. 3 REM put the number  of ports to be viewed  in the FOR statement  in
  4. 4 REM line  30.
  5. 10 CLS
  6. 20 LOCATE 1,1
  7. 30 FOR I = 0 TO 15
  8. 40 PRINT INP(&H240 + I),
  9. 50 NEXT I
  10. 60 GOTO 20
  11.